;Assembler header file for InetSuite
;written by DefMod (Oct 26 2000) on Tue Dec 12 20:10:13 2000
;Tom Hughes, tom@compton.nu, 13 Mar 1999

        [       :LNOT: :DEF: Get_Types
        GBLS    Get_Types
        ]
        [       :LNOT: :DEF: Types_Hdr
Get_Types                       SETS    "GET OSLib:oslib.Hdr.Types"
        |
Get_Types                       SETS    ""
        ]
        $Get_Types

        [       :LNOT: :DEF: Get_OS
        GBLS    Get_OS
        ]
        [       :LNOT: :DEF: OS_Hdr
Get_OS                          SETS    "GET OSLib:oslib.Hdr.OS"
        |
Get_OS                          SETS    ""
        ]
        $Get_OS

        [       :LNOT: :DEF: Get_WIMP
        GBLS    Get_WIMP
        ]
        [       :LNOT: :DEF: WIMP_Hdr
Get_WIMP                        SETS    "GET OSLib:oslib.Hdr.WIMP"
        |
Get_WIMP                        SETS    ""
        ]
        $Get_WIMP

        [       :LNOT: :DEF: InetSuite_Hdr
        GBLS    InetSuite_Hdr

;Symbols for constants
Message_InetSuiteOpenURL        *       &4AF80
InetSuite_UseMIMEType           *       &1

;Symbols for structure offsets and sizes
InetSuite_OpenURLFlags          *       Bits

                                ^       0
InetSuite_MessageOpenURL_url    #       236*Char
                                ^       0
InetSuite_MessageOpenURL_indirect_tag #       Int
InetSuite_MessageOpenURL_indirect_url #       OS_StringValue
InetSuite_MessageOpenURL_indirect_flags #       InetSuite_OpenURLFlags
InetSuite_MessageOpenURL_indirect_body_file #       OS_StringValue
InetSuite_MessageOpenURL_indirect_target #       OS_StringValue
InetSuite_MessageOpenURL_indirect_body_mimetype #       OS_StringValue
InetSuite_MessageOpenURL        *       @

                                ^       0
InetSuite_FullMessageOpenURLDirect_url #       236*Char
InetSuite_FullMessageOpenURLDirect *       @

                                ^       0
InetSuite_FullMessageOpenURLIndirect_tag #       Int
InetSuite_FullMessageOpenURLIndirect_url #       OS_StringValue
InetSuite_FullMessageOpenURLIndirect_flags #       InetSuite_OpenURLFlags
InetSuite_FullMessageOpenURLIndirect_body_file #       OS_StringValue
InetSuite_FullMessageOpenURLIndirect_target #       OS_StringValue
InetSuite_FullMessageOpenURLIndirect_body_mimetype #       OS_StringValue
InetSuite_FullMessageOpenURLIndirect *       @

                                ^       0
InetSuite_FullMessageOpenURL_direct #       InetSuite_FullMessageOpenURLDirect
                                ^       0
InetSuite_FullMessageOpenURL_indirect #       InetSuite_FullMessageOpenURLIndirect
InetSuite_FullMessageOpenURL    *       @


        ]
        END
